home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 4 / United Public Domain Gold 4.iso / fredfish / ff.0013.dms / ff.0013.adf / mouse.bas < prev    next >
BASIC Source File  |  1986-02-21  |  137b  |  8 lines
  1. 4     scnclr
  2. 5     pena 2
  3. 6     peno 1
  4. 10    ask mouse x%, y%, b%
  5. 15    if b% = 0 goto 10
  6. 20    box(x%-5,y%-5;x%+5,y%+5),1
  7. 30    goto 10
  8.